From c1bc92cebde7c6b446c27afe76d167dee1e27b30 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 27 May 1993 23:50:38 +0000 Subject: [PATCH] (frame-initialize): Handle reverseVideo resource. --- lisp/frame.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/frame.el b/lisp/frame.el index 98f08cba16b..8faa376569f 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -100,7 +100,9 @@ These supercede the values given in `default-frame-alist'.") (new-frame initial-frame-alist))) ;; Handle `reverse' as a parameter. (if (cdr (or (assq 'reverse initial-frame-alist) - (assq 'reverse default-frame-alist))) + (assq 'reverse default-frame-alist) + (cons nil + (x-get-resource "reverseVideo" "Reversevideo")))) (let ((params (frame-parameters frame-initial-frame))) (modify-frame-parameters frame-initial-frame -- 2.30.2